(hack-one-local-variable-eval-safep): Correct handling

of edebug-form-spec property value.  Reported by Johan Bockgård
<bojohan+mail@dd.chalmers.se>.

diff --git a/lisp/files.el b/lisp/files.el
index 6d5b101d3c177871c13da72193db7222282046a6..adec33ef77ba8e143a82c262ed2e1826403b1fe4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2787,7 +2787,8 @@ It is dangerous if either of these conditions are met:
                    ;; During bootstrapping, edebug-basic-spec might not be
                    ;; defined yet.
                     (and (fboundp 'edebug-basic-spec)
-                         (edebug-basic-spec val))))))
+                        (hack-one-local-variable-quotep val)
+                         (edebug-basic-spec (nth 1 val)))))))
       ;; Allow expressions that the user requested.
       (member exp safe-local-eval-forms)
       ;; Certain functions can be allowed with safe arguments